﻿
<% 

set conn=Server.CreateObject("ADODB.Connection") 
DBPath = Server.MapPath("data.mdb") 
conn.Open "provider=microsoft.jet.oledb.4.0;Persist Security Info=true;data source="&dbpath&"" 
%> 

<%
Function alert(message,gourl)
message = replace(message,"'","\'")
If gourl="-1" then
Response.Write ("<script language=javascript>alert('" & message & "');history.go(-1)</script>")
ElseIf gourl="-2" then
Response.Write ("<script language=javascript>alert('" & message & "');history.go(-2)</script>")
Else
Response.Write ("<script language=javascript>location='" & gourl &"'</script>")
End If
Response.End()
End Function
%>


